Voorbeeld van de eigenschap ListWidth

In het volgende voorbeeld wordt een SpinButton gebruikt om de breedte van de vervolgkeuzelijst van een ComboBox in te stellen. De gebruiker wijzigt de waarde van de SpinButton en klikt daarna op de vervolgkeuzepijl van de ComboBox om de lijst weer te geven.

Als u dit voorbeeld wilt gebruiken, kopieert u de voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een ComboBox met de naam ComboBox1.
  
  
• Een SpinButton met de naam SpinButton1.
  
  
• Een Label met de naam Label1.

Private Sub SpinButton1_Change()
    ComboBox1.ListWidth = SpinButton1.Value
    Label1.Caption = "ListWidth = " _
        & SpinButton1.Value
End Sub

Private Sub UserForm_Initialize()
    Dim i As Integer

    For i = 1 To 20
        ComboBox1.AddItem "Choice " _
            & (ComboBox1.ListCount + 1)
    Next i
    
    SpinButton1.Min = 0
    SpinButton1.Max = 130
    SpinButton1.Value = Val(ComboBox1.ListWidth)
    SpinButton1.SmallChange = 5
    Label1.Caption = "ListWidth = " _
        & SpinButton1.Value
End Sub